home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / rampage5.zip / RAMPAGE.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-02-07  |  9KB  |  391 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  8865 bytes  01/29/123  04:31:18pm
  3. '! Code Segment Size  :4869 bytes
  4. '! Data Segment Size  :4699 bytes
  5. '! String Segment Size:3996 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Function Func2316 As Integer
  9.       Declare Function Func4721(s65534 As String, s65532 As String) As Integer
  10.       Declare Function Func4772 As Integer
  11.       Declare Function Func4798 As Integer
  12.  
  13.       Dim i4463 As Integer
  14.       Dim s4465 As String*65
  15.       Dim s4530 As String
  16.       Dim i4534 As Integer
  17.       Dim i4536 As Integer
  18.       Dim s4538(1 To 3) As String*45
  19.       Dim i4673 As Integer
  20.       Dim i4675(4 To 5) As Integer
  21.       Dim i4679 As Integer
  22.       Dim s4681(6 To 7) As String
  23.       Dim s4689 As String
  24.       Dim s4693 As String
  25.       Dim i4697 As Integer
  26.  
  27.       Dim l65514_ As Long
  28.       Dim i65518_ As Integer
  29.       Dim l65520_ As Long
  30.       Dim i65524_ As Integer '! Temporary
  31.       Dim l65526_ As Long
  32.       Dim s65528_ As String '! Temporary
  33.       Dim i65530_ As Integer
  34.       Dim s65532_ As String
  35.  
  36.       CarrierCheck(-1)
  37.       i4463 = Conference.Number
  38.       i4697 = 0
  39.       Open ProgPath + "RAMPAGE.BAD" For Input As 1
  40.    93 Do While Not EOF(1)
  41.         Input #1, s4693
  42.         If Func4721((User.Name), (s4693)) Then
  43.           i4697 = -1
  44.         End If
  45.   179 Loop
  46.   185 Close 1
  47.       Open ProgPath + "RAMPAGE.CFG" For Input As 1
  48.   236 For i4536 = 1 To 3 Step 1
  49.         Input #1, s4538(i4536)
  50.       Next
  51.   347
  52.   368 For i4673 = 4 To 5 Step 1
  53.         Input #1, i4675(i4673)
  54.       Next
  55.   478
  56.   499 For i4679 = 6 To 7 Step 1
  57.         Input #1, s4681(i4679)
  58.       Next
  59.   608 Close 1
  60.   613 Func4798
  61.   620 Do While -1
  62.         s4530 = InKey(1213417543)
  63.         s65532_ = UCase(s4530)
  64.         If s65532_ = "C" Then
  65.           Join i4675(5)
  66.           Comment 
  67.           Join i4463
  68.           GoTo 613
  69.         Else
  70.   726     If s65532_ = "P" Then
  71.             Print "@CLS@@07@"
  72.             Print "!|*|1K|w0000270N12|#|#|#@CLS@@0F@"
  73.             Print ""
  74.             Print "@0E@            @0C@                                                @09@ @0C@ @07@"
  75.             Print "@0E@           @19@ @10@┌┤ @1A@RamPage!@10@ ├─────────────────────────────────────────@19@┐ @07@"
  76.             Print "@0E@           @19@ @10@│@19@ ┌─────────────────────────────────────────────────@10@┐@19@ │ @07@"
  77.             Print "@0E@           @19@ @10@│@19@ │ @1E@   What Is Your Reason For Paging The SysOp?    @10@│@1E@ @19@│ @07@"
  78.             Print "@0E@           @19@ @10@│@1E@ @19@│@1E@       @1C@      No Reason - No Response!     @1E@       @10@│@1E@ @19@│ @07@"
  79.             Print "@0E@           @10@ │ @19@└@10@─────────────────────────────────────────────────┘ @19@│@10@ @07@"
  80.             Print "@0E@           @19@ @10@│@19@ ┌─────────────────────────────────────────────────@10@┐@19@ │ @07@"
  81.             Print "@0E@           @19@ @10@│@19@ │@1F@>@0E@                  @09@         @0E@                @09@    @1F@<@10@│@19@ │ @07@"
  82.             Print "@0E@           @19@ @10@│@19@ └@10@─────────────────────────────────────────────────┘@19@ │ @07@"
  83.             Print "@0E@           @19@ @10@└@19@───────────────────────────────────┤@1A@ by Scott Ramer@19@ ├┘ @07@"
  84.             Print "@0E@           @07@     @09@ @07@                                             @09@  @07@"
  85.             Print "@0E@           @07@        @08@             @07@                               @09@ @07@"
  86.             Locate 10, 16
  87.             s4465 = InputMask("@1F@>@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  88.             If s4465 = "" Then
  89.               GoTo 613
  90.             Else
  91.   945         Locate 15, 1
  92.               Print "                      @20@ ┌─────────────────────────────@2A@┐ @07@"
  93.               Print "                 @0E@     @2A@ @20@│@2A@ @2E@Hit Spacebar To Abort Page! @2A@│ @07@"
  94.               Print "                      @2A@ @20@└@2A@─────────────────────────────┘ @07@"
  95.               If i4697 = -1 Then
  96.                 ActivityLog ">>>>> RamPage BAD User Attempted Paging SysOp. <<<<<"
  97.                 ActivityLog "User's Reason: " + s4465
  98.                 ActivityLog "User Given FakePage Instead."
  99.                 Locate 20, 1
  100.                 Print "@0F@Paging Sysop..."
  101.                 Delay 3
  102.                 If InKey(1213417543) = Chr(32) Then
  103.                   GoTo 613
  104.                 Else
  105.  1084             Locate 20, 17
  106.                   Print " 1 "
  107.                   Delay 3
  108.                   If InKey(1213417543) = Chr(32) Then
  109.                     GoTo 613
  110.                   Else
  111.  1141               Locate 20, 21
  112.                     Print " 2 "
  113.                     Delay 3
  114.                     If InKey(1213417543) = Chr(32) Then
  115.                       GoTo 613
  116.                     Else
  117.  1198                 Locate 20, 25
  118.                       Print " 3 "
  119.                       Delay 3
  120.                       If InKey(1213417543) = Chr(32) Then
  121.                         GoTo 613
  122.                       Else
  123.  1255                   Locate 20, 29
  124.                         Print " 4 "
  125.                         Delay 3
  126.                         If InKey(1213417543) = Chr(32) Then
  127.                           GoTo 613
  128.                         Else
  129.  1312                     Locate 20, 33
  130.                           Print " 5 "
  131.                           Delay 3
  132.                           DisplayFile("" + UCase(s4538(3)))
  133.                           If InputYesNo("@SYSOP@ is not available, would you like to leave a message? ", 1213417543) Then
  134.                             Join i4675(5)
  135.                             Comment 
  136.                             Join i4463
  137.                           End If
  138.                         End If
  139.                       End If
  140.                     End If
  141.                   End If
  142.                 End If
  143.  1446           GoTo 613
  144.               Else
  145.  1458           Print ""
  146.                 ActivityLog "Reason for Page: " + s4465
  147.                 Locate 19, 1
  148.                 PageSysop 
  149.                 GoTo 613
  150.               End If
  151.             End If
  152.  1499     Else
  153.  1505       If s65532_ = "Q" Then
  154.               Print "@CLS@@07@"
  155.               End 
  156.             Else
  157.  1538         If s65532_ = "G" Then
  158.                 If UCase(s4681(6)) = "ENABLE CHAIN" Then
  159.                   Chain "" + UCase(s4681(7)), ""
  160.                 Else
  161.  1655             DisplayFile("GOODBYE")
  162.                   ActivityLog "User Logged Off From Page Menu."
  163.                   Goodbye 0
  164.                 End If
  165.  1676           End 
  166.               Else
  167.  1683           If s65532_ = "E" Then
  168.                   If i4697 = -1 Then
  169.                     GoTo 613
  170.                   Else
  171.  1728               If UCase(s4538(2)) = "DISABLE EMERGENCY PAGE" Then
  172.                       GoTo 613
  173.                     Else
  174.  1788                 Print "@CLS@@07@"
  175.                       Print "!|*|1K|w0000270N12|#|#|#@CLS@@0F@"
  176.                       Print ""
  177.                       Print "@0E@            @0C@                                                @09@ @0C@ @07@"
  178.                       Print "@0E@           @4C@ @40@┌┤@43@ @47@RamPage!@43@ @40@├─────────────────────────────────────────@4C@┐ @07@"
  179.                       Print "@0E@           @4C@ @40@│@4C@ ┌─────────────────────────────────────────────────@40@┐@4C@ │ @07@"
  180.                       Print "@0E@           @4C@ @40@│@4C@ │ @4E@ Reason For Sounding The Emergency Page Alarm?@4C@  @40@│@4C@ │ @07@"
  181.                       Print "@0E@           @4C@ @40@│@4C@ │ @4E@  @4A@ Leave Blank to Abort!  @4B@Password Required!  @4C@  @40@│@4C@ │ @07@"
  182.                       Print "@0E@           @4C@ @40@│@4C@ └@40@─────────────────────────────────────────────────┘@4C@ │ @07@"
  183.                       Print "@0E@           @4C@ @40@│@4C@ @40@┌─────────────────────────────────────────────────@4C@┐ │ @07@"
  184.                       Print "@0E@           @4C@ @40@│@4C@ @40@│@4E@>@07@                                               @4E@<@4C@│ │ @07@"
  185.                       Print "@0E@           @4C@ @40@│@4C@ @40@└@4C@─────────────────────────────────────────────────┘ │ @07@"
  186.                       Print "@0E@           @4C@ @40@└@4C@───────────────────────────────────┤@4A@ @47@by Scott Ramer@4F@ @4C@├┘ @07@"
  187.                       Print "@0E@           @07@     @09@ @07@                                             @09@  @07@"
  188.                       Print "@0E@           @07@        @08@             @07@                               @09@ @07@"
  189.                       Locate 10, 16
  190.                       s4465 = InputMask("@4F@>@0E@", "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", "", 1213417543)
  191.                       If s4465 = "" Then
  192.                         GoTo 613
  193.                       Else
  194.  1990                   ActivityLog ">>>>> User Attempted Emergency Paging SysOp! <<<<<"
  195.                         ActivityLog "User's Emergency: " + s4465
  196.                         Locate 18, 1
  197.                         Print "What is the @0C@Emergency Page@0E@ Password? "
  198.                         Locate 18, 38
  199.                         Input s4689
  200.                         s4689 = UCase(s4689)
  201.                         s4538(1) = UCase(s4538(1))
  202.                         If s4689 = s4538(1) Then
  203.                           Print "@0B@Paging SysOp, Please Wait . . ."
  204.                           Func2316
  205.                           Print ""
  206.                           Print "@0E@@SYSOP@ Has Been @0C@Alerted@0E@ And Will Respond If Possible."
  207.                           WaitEnter 
  208.                           GoTo 613
  209.                         Else
  210.  2214                     Print "@8C@Incorrect@0C@ @0B@Emmergency Page Password!"
  211.                           WaitEnter 
  212.                           ActivityLog "Incorrect Emergency Page Password!"
  213.                           GoTo 613
  214.                         End If
  215.                       End If
  216.                     End If
  217.                   End If
  218.  2240           Else
  219.  2246             If s65532_ = "" + Chr(13) Then
  220.                     GoTo 613
  221.                     GoTo 2282
  222.                   End If
  223.                 End If
  224.               End If
  225.             End If
  226.           End If
  227.         End If
  228.  2282 Loop
  229.  2288
  230.  
  231. '! Called 1 time
  232.       Function Func2316 As Integer
  233.         Dim l65526 As Long
  234.         Dim i65530 As Integer
  235.         Dim i65532 As Integer
  236.  
  237.         i65532 = 1
  238.  2382   For i4534 = 1 To i4675(4) Step 1
  239.           Locate 19, 33
  240.           Print Mid("\|/-", i65532, 1);
  241.           i65532 = i65532 Mod Len("\|/-") + 1
  242.           Delay 0
  243.           Print Chr(8); Mid("\|/-", i65532, 1);
  244.           Print Chr(8); " "; Chr(8);
  245.           Sound 1000, 0
  246.           Print Mid("\|/-", i65532, 1);
  247.           i65532 = i65532 Mod Len("\|/-") + 1
  248.           Delay 0
  249.           Print Chr(8); Mid("\|/-", i65532, 1);
  250.           Print Chr(8); " "; Chr(8);
  251.           Sound 100, 0
  252.           Print Mid("\|/-", i65532, 1);
  253.           i65532 = i65532 Mod Len("\|/-") + 1
  254.           Delay 0
  255.           Print Chr(8); Mid("\|/-", i65532, 1);
  256.           Print Chr(8); " "; Chr(8);
  257.           Sound 1000, 0
  258.           Print Mid("\|/-", i65532, 1);
  259.           i65532 = i65532 Mod Len("\|/-") + 1
  260.           Delay 0
  261.           Print Chr(8); Mid("\|/-", i65532, 1);
  262.           Print Chr(8); " "; Chr(8);
  263.           Sound 200, 0
  264.           Print Mid("\|/-", i65532, 1);
  265.           i65532 = i65532 Mod Len("\|/-") + 1
  266.           Delay 0
  267.           Print Chr(8); Mid("\|/-", i65532, 1);
  268.           Print Chr(8); " "; Chr(8);
  269.           Sound 1000, 0
  270.           Print Mid("\|/-", i65532, 1);
  271.           i65532 = i65532 Mod Len("\|/-") + 1
  272.           Delay 0
  273.           Print Chr(8); Mid("\|/-", i65532, 1);
  274.           Print Chr(8); " "; Chr(8);
  275.           Sound 300, 0
  276.           Print Mid("\|/-", i65532, 1);
  277.           i65532 = i65532 Mod Len("\|/-") + 1
  278.           Delay 0
  279.           Print Chr(8); Mid("\|/-", i65532, 1);
  280.           Print Chr(8); " "; Chr(8);
  281.           Sound 1000, 0
  282.           Print Mid("\|/-", i65532, 1);
  283.           i65532 = i65532 Mod Len("\|/-") + 1
  284.           Delay 0
  285.           Print Chr(8); Mid("\|/-", i65532, 1);
  286.           Print Chr(8); " "; Chr(8);
  287.           Sound 400, 0
  288.           Print Mid("\|/-", i65532, 1);
  289.           i65532 = i65532 Mod Len("\|/-") + 1
  290.           Delay 0
  291.           Print Chr(8); Mid("\|/-", i65532, 1);
  292.           Print Chr(8); " "; Chr(8);
  293.           Sound 1000, 0
  294.           Print Mid("\|/-", i65532, 1);
  295.           i65532 = i65532 Mod Len("\|/-") + 1
  296.           Delay 0
  297.           Print Chr(8); Mid("\|/-", i65532, 1);
  298.           Print Chr(8); " "; Chr(8);
  299.           Sound 500, 0
  300.           Print Mid("\|/-", i65532, 1);
  301.           i65532 = i65532 Mod Len("\|/-") + 1
  302.           Delay 0
  303.           Print Chr(8); Mid("\|/-", i65532, 1);
  304.           Print Chr(8); " "; Chr(8);
  305.           Sound 1000, 0
  306.           Print Mid("\|/-", i65532, 1);
  307.           i65532 = i65532 Mod Len("\|/-") + 1
  308.           Delay 0
  309.           Print Chr(8); Mid("\|/-", i65532, 1);
  310.           Print Chr(8); " "; Chr(8);
  311.           Sound 600, 0
  312.           Print Mid("\|/-", i65532, 1);
  313.           i65532 = i65532 Mod Len("\|/-") + 1
  314.           Delay 0
  315.           Print Chr(8); Mid("\|/-", i65532, 1);
  316.           Print Chr(8); " "; Chr(8);
  317.           Sound 1000, 0
  318.           Print Mid("\|/-", i65532, 1);
  319.           i65532 = i65532 Mod Len("\|/-") + 1
  320.           Delay 0
  321.           Print Chr(8); Mid("\|/-", i65532, 1);
  322.           Print Chr(8); " "; Chr(8);
  323.           Sound 700, 0
  324.           Print Mid("\|/-", i65532, 1);
  325.           i65532 = i65532 Mod Len("\|/-") + 1
  326.           Delay 0
  327.           Print Chr(8); Mid("\|/-", i65532, 1);
  328.           Print Chr(8); " "; Chr(8);
  329.           Sound 1000, 0
  330.           Print Mid("\|/-", i65532, 1);
  331.           i65532 = i65532 Mod Len("\|/-") + 1
  332.           Delay 0
  333.           Print Chr(8); Mid("\|/-", i65532, 1);
  334.           Print Chr(8); " "; Chr(8);
  335.           Sound 800, 0
  336.           Print Mid("\|/-", i65532, 1);
  337.           i65532 = i65532 Mod Len("\|/-") + 1
  338.           Delay 0
  339.           Print Chr(8); Mid("\|/-", i65532, 1);
  340.           Print Chr(8); " "; Chr(8);
  341.           Sound 1000, 0
  342.           Print Mid("\|/-", i65532, 1);
  343.           i65532 = i65532 Mod Len("\|/-") + 1
  344.           Delay 0
  345.           Print Chr(8); Mid("\|/-", i65532, 1);
  346.           Print Chr(8); " "; Chr(8);
  347.           Sound 900, 0
  348.           Print Mid("\|/-", i65532, 1);
  349.           i65532 = i65532 Mod Len("\|/-") + 1
  350.           Delay 0
  351.           Print Chr(8); Mid("\|/-", i65532, 1);
  352.           Print Chr(8); " "; Chr(8);
  353.           Sound 1000, 0
  354.           Print Mid("\|/-", i65532, 1);
  355.           i65532 = i65532 Mod Len("\|/-") + 1
  356.           Delay 0
  357.           Print Chr(8); Mid("\|/-", i65532, 1);
  358.           Print Chr(8); " "; Chr(8);
  359.           If i4534 < i4675(4) Then
  360.           End If
  361.  4690   Next
  362.  4713
  363.       End Function
  364.  
  365. '! Called 1 time
  366.       Function Func4721(s65534 As String, s65532 As String) As Integer
  367.         Func4721 = 0
  368.         If s65534 = s65532 Then
  369.           Func4721 = -1
  370.         End If
  371.  4764
  372.       End Function
  373.  
  374. '! Called 1 time
  375.       Function Func4772 As Integer
  376.         DisplayFile("RAMPAGE")
  377.       End Function
  378.  
  379. '! Called 1 time
  380.       Function Func4798 As Integer
  381.         If RIPDetected Then
  382.           Func4772
  383.         Else
  384.  4829     DisplayFile("RAMPAGE")
  385.           Locate 22, 1
  386.           Print "@0E@ Please ENTER Your Choice: "
  387.           Locate 22, 28
  388.         End If
  389.  4861
  390.       End Function
  391.